home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 April / 64er_Magazin_89-04_1989_Markt__Technik_de.d64 / pythagoras v1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  161 b   |  5 lines
  1. 10 a=5    :n=1:def fna(x)=x-int(x/2)*2:printn;3;4;5
  2. 20 m=int(sqr(2)*a)-a:m=(fna(m)<>fna(a))+m
  3. 30 forx=mto1step-2:c=(a*a-x*x)/2/x:ifc=int(c)thenn=n+1:printn;a;c;c+x
  4. 40 nextx:a=a+1:goto20
  5.